home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 65.zip / BS1 part 65 / Art Department Pro 2.15 d2.adf / RXProgs.lzh / getfiles_examples.adpro < prev    next >
Text File  |  1991-10-17  |  782b  |  31 lines
  1. /*     GETFILES_EXAMPLE
  2. **
  3. **    This ARexx program is an example of how to 
  4. **    use the GETFILES command new to ADPro 2.0.
  5. **
  6. **    Example ARexx program for controlling ADPro by ASDG Incorporated.
  7. **     Copyright 1991 By  ASDG Incorporated
  8. */
  9.  
  10. ADDRESS "ADPro"
  11. OPTIONS RESULTS
  12. NL = '0A'X
  13.  
  14. OrdinalWords = "first second third fourth fifth sixth"
  15. OrdinalMax   = 6
  16.  
  17. GETFILES '"Select A Few Files"'
  18. IF RC ~= 0 THEN EXIT
  19.  
  20. TheFiles      = ADPRO_RESULT
  21. NumberOfFiles = WORDS(TheFiles)
  22. FileCounter   = 1
  23.  
  24. DO WHILE FileCounter <= NumberOfFiles
  25.     IF FileCounter > OrdinalMax THEN String = "Another file you picked is:" || NL
  26.     ELSE String = "The" WORD(OrdinalWords , FileCounter) "file you picked is:" || NL
  27.     String = String || WORD(TheFiles , FileCounter)
  28.     OKAY1 String
  29.     FileCounter = FileCounter + 1
  30. END
  31.